Unit
lmdformA

Declaration

TLMDMaxInfoEvent = procedure(Sender:TObject; var xpos, ypos, MaxWidth, MaxHeight:Integer) of object;